Program Matriz;
var
M1,M2,M3:array[1..4,1..4] of integer;
i,j:integer;

Begin
	writeln('Escreve 16 números');
	for i:=1 to 4 do
		for j:=1 to 4 do
			readln(M1[i,j]);
			writeln('--------------------------------');
	writeln('Escreve mais 16 números');
			
	for i:=1 to 4 do
		for j:=1 to 4 do
			readln(M2[i,j]); 
			
			
	
			   
clrscr;

	writeln('Os primeiros 16 números são:');		
	for i:=1 to 4 do
		begin
			for j:=1 to 4 do		 
				write(M1[i,j]:-7,'   ');
				writeln;
		end;
			  		
	writeln;		
	writeln('------------------------------------------------------------');		
	writeln('Os 16 números seguintes são:');		
	writeln;

			
	for i:=1 to 4 do
		begin
			for j:=1 to 4 do		 
				write(M2[i,j]:-7,'   ');
				writeln;
		end; 
		 		
	writeln;		
	writeln('------------------------------------------------------------');			
	writeln('A soma de todos os números é:');
	writeln;
	
	for i:=1 to 4 do
		for j:=1 to 4 do	
			M3[i,j]:=(M2[i,j]+M1[i,j]);		
	for i:=1 to 4 do
		begin
			for j:=1 to 4 do		 
				write(M3[i,j]:-7,'   ');
				writeln;
		end;  		
							
End.